home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / PEGASYS II Demo / Macros / Stair1 < prev    next >
Encoding:
Text File  |  1988-08-04  |  1.9 KB  |  52 lines
  1. {--------------------------- STAIR1 ------------------------
  2.  
  3. {This macro creates a single flight of stairs letting the user specify
  4. {the number of treads, tread width and the width of the stair well.
  5. PROMPT Prompt=`Enter Number Of Treads`   Type=Num Var=#NTRD
  6. PROMPT Prompt=`Enter Tread Width`            Type=Num Var=#TRD
  7. PROMPT Prompt=`Enter Width Of Stair Well`  Type=Num Var=#WID
  8. PROMPT Prompt=`Enter Starting Point`           Type=Coor Var=#P1
  9. PROMPT Prompt=`Would You Like Stairs Vert. Y-N`  Type=Swit Var=#DIR
  10. #STEP=#WID-(8")      {Distance of tread between handrails
  11. #RL=#TRD * #NTRD    {Distance from first tread to last
  12. If (#DIR == 1), Goto Vert:
  13.  
  14. {First tread line is drawn in.
  15. Li Cl=142 La=142 Pe=0 St=0 [#P1|0,2"|^|0,2"|0,#STEP|^|0,2"|0,2"|;]
  16. {Treads are copied into place.
  17. COPY R=#NTRD X=#TRD  [-|;]
  18. {Handrails are drawn in.
  19. Li Cl=142 La=142 Pe=0 St=0 [A,#P1.x-.5,#P1.y|0,4"|#RL+1|0,-4"|^|-2"]\
  20.      [0,2"|-#RL-(8")|0,-2"|^|0,#WID|0,-2"|#RL+(8")|0,2"|^|2"|0,-4"|-#RL-1|0,4"|;]
  21. {Direction for stairs are drawn in.
  22. Li Cl=142 La=142 Pe=0 St=0 [0,-(#WID/2)|#RL+.25|^|P,.5875,135|] \
  23.      [P,.5875,-45|P,.5875,-135|;]
  24.  
  25. PROMPT Prompt=`Type 'UP' or 'DN'` Type=Str Var=#TAG
  26. Tx RC .1 Cl=142 La=142 Pe=0 Angle=0 Place=Pts Type=Sing \
  27.      [A,#P1.x-.5,#P1.y+(#WID/2)|;]
  28. #TAG
  29. Goto END:
  30.  
  31. VERT:
  32. {First tread line is drawn in.
  33. Li Cl=142 La=142 Pe=0 St=0 [#P1|2"|^|2"|#STEP|^|2"|2"|;]
  34. {Treads are copied into place.
  35. COPY R=#NTRD Y=#TRD  [-|;]
  36. {Handrails are drawn in.
  37. Li Cl=142 La=142 Pe=0 St=0 [A,#P1.x,#P1.y-.5|4"|0,#RL+1|-4"|^|0,-2"]\
  38.      [2"|0,-#RL-(8")|-2"|^|#WID|-2"|0,#RL+(8")|2"|^|0,2"|-4"|0,-#RL-1|4"|;]
  39. {Direction for stairs are drawn in.
  40. Li Cl=142 La=142 Pe=0 St=0 [-(#WID/2)|0,#RL+.25|^|P,.5875,-135|] \
  41.      [P,.5875,45|P,.5875,-45|;]
  42.  
  43. PROMPT Prompt=`Type 'UP' or 'DN'` Type=Str Var=#TAG
  44. Tx CB .1 Cl=142 La=142 Pe=0 Angle=0 Place=Pts Type=Sing \
  45.      [A,#P1.x+(#WID/2),#P1.y-.5|;]
  46. #TAG
  47.  
  48. END:
  49. MESSAGE State=`All Done` Time=3
  50.  
  51. RETURN
  52.